home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_2 / ctrain.dem (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  29KB  |  90 lines
  1. 10 REM COLOUR TRAIN
  2. 100 GOSUB
  3. 1000 REM PLAY THE GAME
  4. 10000 REM set up screen and colours
  5. 10001 REM *************************
  6. 1001 REM *************
  7. 10010 REM set up screen and colours
  8. 10020 KEY
  9. 10030 VARNAME
  10. 10040 FOR
  11. 10050 RETURN
  12. 1010 VARNAME
  13. 1020 SPRITE
  14. 1030 VARNAME
  15. 1035 VOLUME
  16. 1040 ANIM
  17. 1050 MOVE X
  18. 1060 ANIM
  19. 1070 WHILE
  20. 1080 IF
  21. 1090 IF
  22. 1095 WEND
  23. 110 GOSUB
  24. 1100 WHILE
  25. 1110 MOVE
  26. 1115 SPRITE
  27. 1120 VARNAME
  28. 1130 FOR
  29. 1140 SPRITE
  30. 1150 NEXT
  31. 1160 VARNAME
  32. 1170 FOR
  33. 1180 FOR
  34. 1190 VARNAME
  35. 1195 FOR
  36. 120 GOSUB
  37. 1200 VARNAME
  38. 1210 INC
  39. 130 RUN
  40. 199 STOP
  41. 1999 REM ****************
  42. 20 REM Author Phil Lawson
  43. 2000 REM spacebar pressed
  44. 2001 REM ****************
  45. 2002 REM if possible to stop then set STOP to 1 and return
  46. 2010 RESET ZONE
  47. 2020 CLEAR KEY
  48. 499 REM **************
  49. 500 REM INITIALISATION
  50. 501 REM **************
  51. 510 DIM
  52. 520 LIMIT SPRITE
  53. 530 VARNAME
  54. 540 RESTORE
  55. 590 RETURN
  56. 60 REM ******************
  57. 600 DATA
  58. 610 DATA
  59. 620 DATA
  60. 65 BREAK
  61. 6999 REM **************
  62. 70 RESERVE
  63. 7000 REM get next track
  64. 7001 REM **************
  65. 7100 VARNAME
  66. 7110 SPRITE
  67. 7120 RETURN
  68. 7999 REM ****************************
  69. 8000 REM SET THE COLOURS OF THE TRAIN
  70. 8001 REM ****************************
  71. 8010 RESTORE
  72. 8020 FOR
  73. 8030 COLOUR
  74. 8900 DATA
  75. 8910 DATA
  76. 8920 DATA
  77. 8930 DATA
  78. 8940 DATA
  79. 8950 DATA
  80. 8999 REM ***************
  81. 9000 REM DRAW THE SCREEN
  82. 9001 REM ***************
  83. 9012 EXTENSION (Index #0) (Token 0x80)
  84. 9015 WAIT VBL
  85. 9020 FOR
  86. 9030 FOR
  87. 9040 FOR
  88. 9090 RETURN
  89. 999 REM  *************
  90.